inicio
	inteiro: x1,x2,x3;
	real:Y1,Y2,Y3;
	logico: teste;
	
	teste <- (x1 = 1);
	
	tipo Pessoa = registro
		char: nome;
		inteiro: idade;
		char: sexo;
		Pessoa:proxima;
	fimregistro;
	
	tipo Aluno =registro
		Pessoa: pessoa;
		logico: exelente;
		logico: odeiaBernardes;
	fimregistro;
	
	Aluno: a1;
	
	procedimento lerAluno;
	inicio
		imprima("digite seu nome");
		leia(a1.pessoa.nome);
		imprima("digite sua idade");
		leia(a1.pessoa.idade);
		imprima("digite seu sexo");
		leia(a1.pessoa.sexo);
	fim
	
	funcao odeiaBernardes(a1): logico;
	inicio
		se a1.pessoa.nome <> "" entao
			a1.odeiaBernardes <- verdadeiro
		senao 
			a1.odeiaBernardes <- falso
		fimse
	fim
	funcao EAlunoExcelente(a1): logico;
	inicio
		a1.exelente <- (a1.pessoa.nome = "jayme");
		EAlunoExcelente <- a1.exelente; 
	fim
		
	{resultado do aluno a1}
	
	imprima("nome: ", a1.pessoa.nome);
	imprima("idade: ", a1.pessoa.idade);
    imprima("sexo: ", a1.pessoa.sexo);
	imprima("Excelente: ", a1.exelente);
	imprima("Odeia Bernardes: ", a1.odeiaBernardes);
fim